home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / glibc108.zip / glibc108 / sysdeps / vax / htonl.s < prev    next >
Text File  |  1990-11-01  |  1KB  |  31 lines
  1. /*
  2.  * Copyright (c) 1983 Regents of the University of California.
  3.  * All rights reserved.
  4.  *
  5.  * Redistribution and use in source and binary forms are permitted
  6.  * provided that the above copyright notice and this paragraph are
  7.  * duplicated in all such forms and that any documentation,
  8.  * advertising materials, and other materials related to such
  9.  * distribution and use acknowledge that the software was developed
  10.  * by the University of California, Berkeley.  The name of the
  11.  * University may not be used to endorse or promote products derived
  12.  * from this software without specific prior written permission.
  13.  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  14.  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  15.  * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  16.  */
  17.  
  18. #if defined(LIBC_SCCS) && !defined(lint)
  19.     .asciz "@(#)htonl.s    5.5 (Berkeley) 6/27/88"
  20. #endif /* LIBC_SCCS and not lint */
  21.  
  22. /* netorder = htonl(hostorder) */
  23.  
  24. #include "DEFS.h"
  25.  
  26. ENTRY(htonl, 0)
  27.     rotl    $-8,4(ap),r0
  28.     insv    r0,$16,$8,r0
  29.     movb    7(ap),r0
  30.     ret
  31.